home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / READDISP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  802 b   |  29 lines
  1.                                 (* Chapter 11 - Program 2 *)
  2. program Read_And_Display;
  3.  
  4. var Chicken    : text;
  5.     Name_Of_File_To_Input : string[12];
  6.     Line_Count : integer;
  7.     Big_String : string[80];
  8.  
  9. begin  (* main program *)
  10.    Write('Enter input file name ');
  11.    Readln(Name_Of_File_To_Input);
  12.    Assign(Chicken,Name_Of_File_To_Input);
  13.    Reset(Chicken);
  14.  
  15.    Writeln;
  16.    Writeln('Program listing with character count per');
  17.    Writeln('line and total line count');
  18.    Writeln;
  19.  
  20.    Line_Count := 0;
  21.    while not Eof(Chicken) do begin
  22.       Readln(Chicken,Big_String);
  23.       Writeln(Length(Big_String):5,'  ',Big_String);
  24.       Line_Count := Line_Count + 1;
  25.    end;
  26.    Close(Chicken);
  27.    Writeln;
  28.    Writeln('The line count is ',Line_Count:3);
  29. end.  (* of program *)